home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’89 / Toolbox Demos / QD Demo 1.4d5 / QD Demo 1.4d5.rsrc / STR#_3000.txt < prev    next >
Text File  |  1989-06-15  |  2KB  |  103 lines
  1. PenPat(&ppa);
  2.  
  3. PenSize(&psh, &psv);
  4.  
  5. KillPicture(myPicHand);
  6.  
  7. SetRect(r, &orl, &ort, &orr, &orb);DrawPicture(r, myPicHand);
  8.  
  9. ClosePicture;
  10.  
  11. SetRect(r, &orl, &ort, &orr, &orb);myPicHand := OpenPicture(r);
  12.  
  13.  
  14.  
  15. DisposeRgn(myRgnHand);
  16.  
  17.  
  18.  
  19. CloseRgn(myRgnHand);
  20.  
  21. OpenRgn;
  22.  
  23. myRgnHand := NewRgn;
  24.  
  25. KillPoly(myPolyHand);
  26.  
  27.  
  28.  
  29. ClosePoly;
  30.  
  31. myPolyHand := OpenPoly;
  32.  
  33.  
  34.  
  35. FillRgn(myRgnHand, &fpa);
  36.  
  37. InvertRgn(myRgnHand);
  38.  
  39. EraseRgn(myRgnHand);
  40.  
  41. PaintRgn(myRgnHand);
  42.  
  43. FrameRgn(myRgnHand);
  44.  
  45. FillPoly(myPolyHand, &fpa);
  46.  
  47. InvertPoly(myPolyHand);
  48.  
  49. ErasePoly(myPolyHand);
  50.  
  51. PaintPoly(myPolyHand);
  52.  
  53. FramePoly(myPolyHand);
  54.  
  55. SetRect(r, &orl, &ort, &orr, &orb);FillArc(r, &asa, &aea, &fpa);
  56.  
  57. SetRect(r, &orl, &ort, &orr, &orb);InvertArc(r, &asa, &aea);
  58.  
  59. SetRect(r, &orl, &ort, &orr, &orb);EraseArc(r, &asa, &aea);
  60.  
  61. SetRect(r, &orl, &ort, &orr, &orb);PaintArc(r, &asa, &aea);
  62.  
  63. SetRect(r, &orl, &ort, &orr, &orb);FrameArc(r, &asa, &aea);
  64.  
  65. SetRect(r, &orl, &ort, &orr, &orb);FillRoundRect(r, &chs, &cvs, &fpa);
  66.  
  67. SetRect(r, &orl, &ort, &orr, &orb);InvertRoundRect(r, &chs, &cvs);
  68.  
  69. SetRect(r, &orl, &ort, &orr, &orb);EraseRoundRect(r, &chs, &cvs);
  70.  
  71. SetRect(r, &orl, &ort, &orr, &orb);PaintRoundRect(r, &chs, &cvs);
  72.  
  73. SetRect(r, &orl, &ort, &orr, &orb);FrameRoundRect(r, &chs, &cvs);
  74.  
  75. SetRect(r, &orl, &ort, &orr, &orb);FillOval(r, &fpa);
  76.  
  77. SetRect(r, &orl, &ort, &orr, &orb);InvertOval(r);
  78.  
  79. SetRect(r, &orl, &ort, &orr, &orb);EraseOval(r);
  80.  
  81. SetRect(r, &orl, &ort, &orr, &orb);PaintOval(r);
  82.  
  83. SetRect(r, &orl, &ort, &orr, &orb);FrameOval(r);
  84.  
  85. SetRect(r, &orl, &ort, &orr, &orb);FillRect(r, &fpa);
  86.  
  87. SetRect(r, &orl, &ort, &orr, &orb);InvertRect(r);
  88.  
  89. SetRect(r, &orl, &ort, &orr, &orb);EraseRect(r);
  90.  
  91. SetRect(r, &orl, &ort, &orr, &orb);PaintRect(r);
  92.  
  93. SetRect(r, &orl, &ort, &orr, &orb);FrameRect(r);
  94.  
  95. Line(&edh, &edv);
  96.  
  97. LineTo(&eph, &epv);
  98.  
  99. Move(&sdh, &sdv);Line(&edh, &edv);
  100.  
  101. MoveTo(&sph, &spv);LineTo(&eph, &epv);
  102.  
  103.